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-TITLE RACSGETARG GET MACRO FORMAL ARGUMENTS 
IDENT ‘v04-000' 


ID 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
:* ® 
:® ® 
:® * 
& ® 
*® ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
« INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THiS SOFTUARE OR ANY. OTHER © 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITL TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
** * 
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:* CORPORATION. : 
:* * 
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;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
** * 
-* ® 
® * 
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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 

ABSTRACT: 


The VAX-11 MACRO assembler translates RACROWa8 source code into object 
modules for input to the VAX-11 LINKER 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 30-AUG-78 
MODIFIED BY: 


v03-002 MCNO163 a del C. Nasr 04-Apr-1984 
The error TOOMNYARG. yh F have an error pn hay not 
warning. 

v03.01 MTROO19 Mike Rhodes 7-Jul-1982 


Ay argument detection for macros with no formal arguments 
which are invoked with >1 actual arguments. 


v02.06 pee Chris Hume 22-Dec-1980 - ; 
Cou ument after trailing comma for .NARG directive. 
CARGSCN "3. O8° DEFINE.MAR 02. 18) 


v01.05 RNOO23 R. Newland 3-Nov~1979 
New message codes to get error messages from system 
message file 
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000 62 :=- 
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DECLARATIONS “SE MACRO.SRCJGETARG.MAR; 1 
p08 rt: ; -SBTTL DECLARATIONS 
209 6 : INCLUDE FILES: 
aed 
000 0 ; MACROS: 
00002 
0000 ig SMAC_CTLFLGDEF ;DEFINE CONTROL FLAGS 
0000 74 SMAC_INTCODDEF ‘DEF INE A gts CODES 
4 75 SMAC_GENVALDEF [DEF INE GENERAL VALUES 
000 76 SMAC_SYMBLKDEF ; DEF INE SYMBOL "BLOCK OFFSETS 
i$ 77 SMAC_MNBDEF aor ine MNB, 
00 78 SMAC_ INPBLKDEF =D FINE INPUT BLOCK OFFSETS 
8 : 4 SMACASGDEF ; Define message codes 
00000000 81 -PSECT MACS$RO_CODE_MAC ,NOWRT,GBL,LONG 


kk 
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~SBTTL MACSGET_ARGS SCAN REAL MACRO ARGUMENTS 


;++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SCANS THE REAL MACRO ARGUMENTS ON A MACRO 
INVOCATION, AN INPUT BLOCK IS CREATED TO READ THE MACRO 
TEXT WITH THE REAL ARGUMENTS ATTACHED TO THIS BLOCK. 


MACSGET_ARGS:: | 
PUSHR #*M<R7,R8,R12> ;SAVE REGISTERS | 


SBW MACSALL_1_PAGE tALLOCATE PAGE FOR INPUT BLOCK 
MOVL _RO,RB :POINT R8 TO INPUT BLOCK | 
MOVL RB, W’MACSGL BLKPTR :SAVE INPUT BLOCK ADDRESS 
MOVL W*°MACSGL_INPUTP,(R8)+ SET LINK 
MOVL #$MNBSL_TXTP(R6), (RB) + ‘SET POINTER TO FIRST LINE OF MACRO TEXT 
MOVAB W*MACSGET_MAC_LIN, (R8)+ :SET ROUTINE ADDRESS TO GET NEXT LINE 
MOVAB W*MACS$GL si _LEVEL.RO POINT TO IF LEVEL/VALUE LONGWORDS | 
MOVL (RO), (R8EY+ SAVE OLD IF LEVEL 
CLRL (RO) + :SET NEW IF LEVEL | 
MOVL (RO), (RB)+ :SAVE OLD IF VALUES 

CLRL = (RO) CLEAR NEW IF VALUES | 
MOVL  R6,(RB)+ i STORE POINTER TO MACRO MNB IN | 

:THE RPTCNT WORD 

CLRL (RB) + [CLEA AR PAGE POINTER 
MOVZBL MNB$B_ARGCT(R6) RO 7GET ARGUMENT COUNT 
MOVL RO, W*MACSGL_MC_ARGCT :SET MACRO ARGUMENT COUN 
MOVB )+ :STORE ARG COUNT IN, tAPUT BLOCK 
BNEQ 10 :1F NEQ GO PROCESS A RGS 
BSBW MACSSKIPSP sELSE CHECK FO 
CMPB  =s R10, #CR ANY ACTUAL ARGS PRESENT? 
BEQL $ NO LID INVOCATION. 
SINToUT. iw INT$_ERR,<#MACS_ fOOMNYARGS. W*MACS$GL_LINEPT> ; YES -= WARN I 


| 
“GET_ARG_EXIT™ sELSE WE ARE ALL DONE | 
| 
| 
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0000° CF 
58 
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98 0000‘ CF 
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L ARGUMENTS 
Je MOVL 
20$: 


B 
BBCC 

; HERE FOR EACH 

$08: CMPB 
B 


50$: 


60$: BSBW 


70$: MOV 


80$: TSTL 


85$: SINTOUT 
BRB 
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RB wmcin, jenn SAVE POINTER To ARG POINTERS 
RB) + :ZERO ARG POINTER 

RO gos i ZERO THEM ALL 

MACSSKIPSP :SKIP LEADING SP 


ACES 
Won $GL_BLKPTR,R8,R7 iPiGURe ave LEFT ON PAGE 
#FLGSV_MOREARG, (R11) +1! Clear craiLing comma flag. 
#FLGSVZENDMCH, (R11), $63"; [CLEAR DONE FLA 


pe 


NEW ARGUMENT 
aie. ACR cEN et Lime 
#FLGSV_ENDMCH, (R11) ,40$ ; lee Sey Fen BEEN HERE BEFORE? 
MNBSB ARGCT(R6) ,RO GET # OF ARGS IN MACRO 
W°MACSGL_MC_ARGCT,RO 3 COUNT OF ARGS 
W*MACSGL~BLRPTR,RI :POINT TO INPUT BLOCK 
#FLGSV SROREARG. (R11), 358; Was one Sere argument expected? 
RO ; Bump c fate’ »NARG if so. 
RO, INP$B_ARGCT(R1) SET COUNT. INTO BLOCK 
MACSMAC _ARG_ SCN > SCAN coer ARGUMENT 
RO :NULL A RG? 
90$ sIF EQL YES 
#2,R7 ; COUNT THE COUNT WORD ALSO 
RO,R7 +r THERE ROOM TO STORE IT? 
50$ i IF YES 
RO NO-SSAVE SIZE OF ARG , 
Are tS “PhGg ize. -RO,R1 ; Bat: pope) stae of block required 
#2, : Sub size of count word from new count 
3GET $326 oF MACRO ARG BACK 
RO,R7 sig Bs REE SPAC 
W*MACSGL_KEYPTR,R1 + AP OINTER TO oe teks: ca MAB 
sIF EQL NOT KEYWORD ARGUMENT 
T_ARG_PKW :SET ARG yg Md FOR REVUORD 
SET_ARG_PTR SET ARG PTR FOR Tals ARG 
, (RB)F : STORE LINE LENGTH 
RO,W*MACSAB_TMPBUF ,(R8) ;COPY ARG we VM 
R5,R s UPDATE POINTER 
W*MACSGL_KEYPTR ;DON'T COUNT eo ARGS 
0 :1F NEQ KEY Meg tae RG 
W*MACSGL_MC_ARGCT,30$ : LOOP i © ARGS 
- C Sp :§ Y SPACES LEFT 
iN V_MOREARG, (R11) ,85$: Complain if tra ot} ing comma 
:DONE= -DID WE GET ? 
FIL RGS ;YES--GO FILL DEFAULT ARGS 
tw t DEF ERR” <#MACS_ TOOMNYARGS ,W°MACSGL_LINEPT> ; No--warn in pass 2 
“FILL_DEF_ARGS :G0 FILL DEFAUCT ARGS 
3 (STATS FORCES EOL TO READ MACRO 
; SO WE DON'T NEED TO FIND IT HERE) 


F 12 
MACSGETARG GET MACRO FORMAL ARGUMENTS 16-SEP-1984 02:05:38 VAX/VMS Macro V04-00 Page MAC 
405.880 MACSGET_ARGS SCAN REAL MACRO ARGUMENTS gr see one 84:03:38 MACRO. SRCJGETARG.MAR; 1 ° (8) v04 


1 176; 4C 
1 158 ; THE ARGUMENT WAS NULL. IF THIS IS A CREATED SYMBOL, CREATE THE 
} 178 ; SYMBOL NOW. | 45 
50 1746 9A O01 180 $08: MOVZBL MNBS$B_ARGCT(R6) ,RO :GET TOTAL # ARGS | 52 
50 9000" ¢F Ce 1 181 SUBL WhMACSGL MC_ARGCT,RO FIGURE ARGUMENT #1 | 
1F 0 OD -— ¢ CMPL ONLY FIRST 32 SYMBOLS ARE CREATED 4E 
£9 14 O10F 1 BGTR :IF GTR THEN JUST SKIP IT | 
C413 AG 50 «E11 «(0111 = 184 BBC RO -MINBSL _CRSYMF (RG) ,80$ ;BRANCH IF NOT CREATED SYMBOL 57 
57 08 (¢3 O16 185 SUBL3 #8,R7,R :1T 1S--IS THERE ROOM FOR 5 DIGITS, | 54 
11A 186 :DOLLAR SIGN, AND CHAR COUNT? 
06 14 O11 18 BGTR ierni :1F GTR ves 45 
51 8 11C =: 188 MOVL #8,R 38 toy re reevire | 
0oc2 30 O11F 189 BSBW AGE :NO--ALLO 
50 OQO00'CF DO 0122 190 100$: MOVL UAKCSEC CRSYM,RO :GET NEXT. CREATED. oF BOL NUMBER 
O000'CF 06 big? 191 INCL W*MACSGL-CRSYM :INC TO NEXT CREATED SYMBOL 
58 DD 0128 19¢ PUSHL R8 ;REMEMBER WHERE COUNT WORD IS | 
88 B4 0120 19 CLRW (RB) + : RESERVE SPACE FOR COUNT WORD 
51 58 DO O12F 19% MOVL _RB,R1 ‘R1 HAS OUTPUT POINTER 
FECB’ 30 0132 195 BSBW § MACSDEC_OUT_L2x [OUTPUT NUMBER IN DECIMAL 
80 gh 90 0135 196 MOVB. #*A/$/,TRO)? sFINISH SYMBOL WITH '$' | 
51 50 58 C3 0138 197 SUBL3. RB, RO,R1 :FIGURE LENGTH OF NUMBER | 
58 8ED0 013C 198 POPL SRESTORE PTR TO COUNT WORD 
68 51 BO O13F 199 mOVW 1, (R8) : STORE CHARACTE UNT 
0074 30 0142 200 BSBW  SET_ARG_FTR ZSTORE ARG P INTER. IN INPUT BLOCK | 
58 50 dO 0145 201 MOVL RB sUPDATE POIN 
57 51 «C2 0148 202 SUBL2 R1,R7 SUPDATE COUNTER 
57 02 C2 0148 203 SUBL2 #2,R7 ;COUNT THE COUNT WORD ALSO 
BA 11 O14E 204 BRB 80$ : CONT INUE 
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| 
1 : 
i 09 ; NOW TRY TO FILL IN NULL ARGS WITH KEYWORD DEFAULT VALUES | 
1 58 
15 10 FILL_DEF_ARGS: 
0000' CF 9A 129 11 MOVZBL #1,W*MACSGL_MC_ARGCT sFIRST ARGUMENT | 
a 2 Oe st dO 1 1g MOVL. wRACSCL ARGPTR,R1 GET ag gf TO ARG POINTERS 
GA 15A 1 MOVZBL MNBSE PARGCT (RO) .- (SP) sSTACK # OF ARGS 
4043 ON 14 BEQL 60 :1F EQL NOTHING 10 00 
18 a8 dD 818 15 TSTL MNBSL_ARGP(R6) ;ARE THERE ANY ARGS? 
4 1 16 16 BEAL s1F EQL yr ng TO DEFAULT WITH 
C 3 8193 17 10$ TSTL (R12)+ ; THIS ARG N 
D 1 16 \8 BNEQ $ sI1F NEQ nO 
55 18 A6 dO 8128 1 MOVL MNBSL ARGP(R6) RS ;YES--POINT TO ARGS 
50 000° CF dO 190 0 MOVL W*MACSGL MC ARGCT RO ;GET CURRENT ARG NUMBER 
05 AS 50 91 0172 1 20$: CMPB RO MABSB “ARGNO(RSS 31S THIS THE RIGHT ARG? 
07 13 8178 ¢ BEQL 30 sIF EQL YES 
55 65 DO (017 MOVL (R5),R5 ;NO--LINK TO NEXT MAB 
F5 12 01768 4 BNEQ 0$ :1F NEQ KEEP LOOKING 
27 11 p17 2 BRB 0$ 3222--NOT THERE ???=-JUST SKIP IT 
0Q17F 7 ; FOUND KEYWORD MAB. IF THERE IS A DEFAULT VALUE, COPY IT INTO THE 
pier 8 ; INPUT BLOCK 
54 06 AS HS 017F 0 S0s: MOVZWL MABSW_DVLEN(R5) ,R4 3;GET LENGTH OF DEFAULT STRING 
21 1 0183 31 BEQL 50$ iIF EQL THERE IS NON 
57 02 C2 0185 3 SUBL #2,R7 ;LEAVE ROOM FOR COUNT WORD 
57 54 C2 0188 23 SUBL R4,R7 SEE a ROOM IN BLOCK 
OA 146 QO188 234 BGTR 40 TTF GTR YES 
51 54 OA C1 0180 235 ADDL3) #<MXBSK_BLKSIZ+2>,R4,R1 : Com ute total size of block required 
0050 30 Bi 34 236 BSBW a IN NP_ PAGE ;NO--GET A PAGE 
57 O02 C2 0194 237 SUBL2 Sub size of count word from new count 
FC AC 58 DO 0197 238 40$: MOVL +9 -4(R12) ‘STORE POINTER TO at IN ARG POINTERS 
88 54 BO 0198 44 MOVW R4,(RB)+ STORE CHARACTER COUN 
68 08 B5 54 28 Bae 40 MOVC3 R4, * aMABSL _DVPTR(RS), (RB): ‘COPY THE DEFAULT OURING 
58 53 DO OIA 241 MOVL R3. R8 UPDATE FREE rome TER 
0000' CF D6 01A6 stg 50$: INCL W*RACSGL _MC_ARGCT “NEX XT A wo ve 
B8 6E F5 O1AA 24 SOBGTR (SP),10$~ ; CHECK ARGS 
8E D5 na ste 60$: TSTL (SP) + > CLEAR EXHAUSTED COUNT FROM STACK | 
O1AF eh6 GET_ARG_EXIT: 
50 0000" CF DO O1AF 47 MOVL W*MACSGL arte RO ;RETURN INPUT BLOCK ADDRESS IN RO 
1180 8F BA bios rt oo #°M<R7,RB,R12 sRESTORE REGISTERS 
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1B9 51 3 ++ 
183 26 ; FUNCTIONAL DESCRIPTION: 
1B9 54; THIS ROUTINE UPDATES THE ARGUMENT POINTER POINTER IN THE INPUT 
1B9 23 § BLOCK. 
189 2$ 3 
1B9 57 ;-- 
1B9 58 
189 259 SET_ARG_PTR: | 
03 BB 01B9 60 PUSHR #*M<RO,R1> SAVE REGISTERS 
50 Q000°CF DO 0188 61 MOVL W*MACSGL ARGPTR,RO ;GET POINTER TO ARGUMENT POINTERS 
51 17 AB ODA g1¢9 $6 nov ZBL MNB$B_ARGCT(R6) ,R1 7GET TOTAL # ARG 
51 0000'CF C2 104 6 SUBL Part si NC ARGCT.R1 sFIGURE INDEX FOR THIS ARG 
6041 58 00 0O1C9 64 OVL R8,(RO)CR1 ;STORE POINTER TO ARG 
03 BA O1CD 65 POPR #*M<RO,R1I> ;RESTORE REGISTE 
05 O1CF 266 RSB | 
0100 67 
0100 68 ;++ 
3108 $3 3; FUNCTIONAL DESCRIPTION: 
0100 71° THIS ROUTINE UPDATES THE ARGUMENT POINTER POINTER FOR THE | 
01D0 si¢ ; GIVEN KEYWORD. 
01D0 37 : | 
01D0 274 ;-- | 
01D0 275 
01D0 sis SET_ARG_PKW: 
50 DD 01D0 77 PUSHL RO SAVE RO 
50 0000'CF DO 01D2 278 MOVL W*MACSGL_ARGPTR,RO ;POINT TO ARGUMENT POINTERS 
1 05 Al 9A 0107 279 MOVZBL MAB$B_ARGNO(R1),R1 ;GET KEYWORD ARGUMENT NUMBER 
FC A041 58 DO 01DB 580 MOVL R8,-4TRO)CR1] ;STORE POINTER TO ARG 
50 BEDO O1E0 81 POPL RO ;RESTORE RO 
05 O1€3 B RSB 
O1E4 8 
Q1E4 84 ;++ 
Bice aH 3; FUNCTIONAL DESCRIPTION: 
O1E4 $85 3 THIS ROUTINE ALLOCATES A PAGE OF VM AND LINKS IT INTO THE 
Bie + 3 PAGE LIST FOR THE CURRENT INPUT BLOCK (POINTED TO BY MAC$GL_BLKPTR). 
Q1E4 90 ; Inputs: 
O1E4 91 ; 
O1E4 35 3 R1 = Number of bytes required 
O1E4 93 ; 
Bice 94 ; Outputs: 
1E4 95 ° | 
O1E4 96 ; R7 = Number of free bytes in block 
QO1E4 297; R8 = Pointer to first free byte 
O1E4 298 : | 
O1E4 99 ;o= | 
pee 00 
1E4 01 ALL_INP_PAGE: 
FE19" 30 O1E4 85 BSBW MACSALL_BLOCK ; Allocate block | 
51 bp 1&7 0 PUSHL ; Save number of pages allocated 
57 51 Q9 1E9 04 ASHL #9,R1,R7 ; Convert size to bytes 
57 98 C 1ED 05 SUBL2 #MXBSK_BLKSIZ,R7 ;_and compute number of free bytes 
58 0 OD gire 06 MOVL R ;SET R8 POINTING TO NEW PAGE 
51 0000' CF b0 1F 07 MOVL W*MACSGL_BLKPTR,R1 ;GET POINTER TO INPUT BLOCK 


1 12 | 
MA ARG GET MACRO FORMAL ARGUMENTS 16-SEP=1 :0 AX/VMS Macro V04-00 Pa 
Hyatt MACSCET ARG SCAN REAL MACRO ARGUMENTS g- -SEP ety y 84 3: 3§ YRACRO SRO GETARG.MAR; 1 es id 
1F 08 ASSUME MXBSL_LINK £0 0 
1F 09 ASSUME MXBSL-PAGES EQ MXBSL_LINK+ 
88 18 Al 00 OTF 10 MOVL INPSL PAGP(R1), (RB)+~ LI NEW PAGE INTO PAGE LIST 
18 Al 50 dO O1FC 11 MOVL OINPSL PAG P(R1) 
88 BE b0 09 1 MOVL “s g5iN : Store block size in block 
0 0 0 1 RSB 
4 314 
0204 315 END 
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00000001 
0000000C 
00000150 R 
00000001 
00000002 
00100000 
00000004 
00000008 
40000000 


_BER 
“MSK 
“CHI 
“CHR 
“DLM 
COMPEXPR 
CONT 
CRF 


INP_PAGE 
_STZE 
“SIZE 
“SPA 
“SYM 
“SYM 
“SYM 

ALCCHR 
BOL 
CHKLPND 
CRSEEN 
DATRPT 
DBGOUT 
DLIMSTR 
NOREF 


SCOUNT 
ALL 
ARGS 
AUDSK 


K 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
FILL DEF ARGS 

$A 
FLGSM 
FLGSM 
FLGSM 
FLGSM 
LGSM 
FLGSM 
FLGSM 
FLGSM 
FLGSM 
FLGSM 
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Symbol table aes 7 rE EMACRO. SRCIGETARG.MARS 1 iD 
INTS_PSECT : 1¢ MACSMAC_ARG_SCN *teeeeee 03 PSC$M_WRT = 00000180 
INTS~REDEF : 1D MACSSKIPSP eereeeee x PSC$S~ALIGNMENT= 4 | 
INTS"REF : 1E MACS. TOOMNYARGS= OO7D91FA PSC$V“ALIGNFLG = QOQQQQ0E | 
INTS"REST = 0000001F MAC_SUBSYS : 900007 PSC$V"ALIGNMENT= O00004 
INTS~SAME = 90000099 MNBSB_ARGCT 000001 PSC$V"EXE = 90000006 
INTS~SAVE = 90000020 MNBSB~ 9000004 PSC$V~GBL = 0000 04 
INTS~SBTTL = : 000021 MNBS$K"BLKS1Z 00000 PSC$V"LIB = 90000001 | 
INTS"SETFLAG = 000000 é MNBS$L~ARGP 000001 PSC$V"OVR = 0000 00 
INTS"SETLONG = 900000 MNBSL~CRSYMF 000001 PSC$V~PIC 2 90000 
INTS~SPIC = 00000024 MNBSL “LINK 0 90000 PSC$V"RD = 0000000 
INTS~SPID = 900000¢5 MNBSL~PAGC 000000F PSC$V"REL = 00000003 
INTS~STIB = 900000 MNBS$L~PAGP 9000008 PSC$V"SHR = 00000003 
INTS “STIL = 0000 MNBS$L~TXTP PSC$V~VEC = 09 
INTS—ST1W = 000000 MNBSW-FLAG 0000009 PSC$V~WRT = 00000008 
INTS"STKEPT = 00000029 MXBSK"BLKSIZ 90000008 PSC$W7FLAG 0000009 

NTS$~STKG = 0000002A MXBSL~LINK 0000000 PSC$W~OPT10 000000D 

NT$"STKL = 00000028 MXBS$L~PAGES 00000004 RDXSV“BINARY = 00000000 
INTS~STKPC = 0000002C OBJ$K“BUFSIZ = 00000200 RDXSV“DECIMAL = 00000002 
INTS~STKS = 00000020 OPFSM“LASTOPR = 00002000 RDXSV-DOUBLE — = 0000000 
INTS—ST = 00000034 OPFSM“OPTEXP = 00001000 RDXSV“FLOAT = 00000004 
INTS~STOL = 00000026 OPF$V“LASTOPR = 0000000D RDXSV"GELOAT — = (00000006 

1$7ST = 000000 OPF $V~OPT = 0000000C RDX$V"HEX = 0000000 
INTS~STRB = 0000002F PSC$B~ 00000004 RDX$V“HFLOAT = 00000007 | 
INTS~STRL = 00000031 PSC$B~SEG 0000000¢ RDX$V-OCTAL _ =_ 00000001 
INTS~STRSB = 0000003 PSC$B~UNUSED 90000005 REGS$_PC = 0000000F 
INTS~STRSW = 0000003 PSC$K~BLKS! 0000001 SEMI = 00000038 
INTS~STRW = 90000050 PSC$K"NO_OPTNS = OOQQQQ0A SET_ARG_PKW 000001D0 R 03 
INTS~STSB = 00000036 PSC$L~CURLOC 0000000F SET~ARG-PT 000001B9 R 03 
INTS~STSW = 00000037 PSCSL~LINK 00000000 STBSK_PG MISS = OOQOO00A 

T$"SUB = 0000000 PSCS$L-MAXLGTH 00000005 SYM$B NAME 90000004 
INTS~SUME = 00000039 PSCSM~ABS = FRFFFFF? YM$B~SEG 000000C 
INTS~WRN = 00000038 PSCSM“ALIGNFLG = 00004000 SYM$B~TOKEN 90000006 
INTS~XOR = 00000008 PSCSM"ALLOPTNS = QOOQO3FF SYMSK~BLKSIZ 000000D 
LSTSR_BUFSIZ = 00000086 PSCSM“BYTE = 00004000 SYNSK-MAXLEN — = 0000001F 
LSTSK"L_P_PAGE = 0000003C PSC$M~CON = FRFFE EB SYMSK~TWOCOL = 00000010 
LSTSK-TITCE_SIZ= 00000028 PSCSM“DEFAULT = 000001C SYMSL “LINK 00000000 
MABSB~ARGNO 0000005 PSCSMEXE = 000000C0 SYMSL~VAL 00000005 
MABSB _NAME 00000004 PSC$M~GBL = 00000010 SYMSM~ABS = 00000010 | 
MABSK~BLKS1Z 0000000C PSCSM~LCL = FFFFFFEF SYMSM~ASN = 00000100 
MABSL~DVPTR 00000008 PSCSM~LIB = 90000002 YMSM~CRFO = 90002000 
MABSL LINK 00000000 PSCSM~LONG = 0000480 SYMSM“DEBUG = 00000020 
MABSW-DVLEN 00000006 PSCSM"NOEXE = FFFFFFBF SM~DEF = 00000001 
MACSAB_TMPBUF teeeeeee Xx 03 PSCSM"NOPIC = FFFFFFFE SYMSM~DELMAC = 00000200 
MACSALC_1 PAGE eeeeeeee xX 03 PSC$M~NORD = FFFFFFIF YMSM~EPT = 90000200 
MACSALL“BCOCK eeeeeree X 03 PSCSM"NOSHR = =_-FEFFFFDF SYMSM“EXTRN =: 00000008 
MACSDEC“OUT L2X eeeeenee XxX 03 PSCSM"NOVEC = -FFFFFDFF SYMSM-GLOBL = 00000004 | 
MACSGET~ARGS 00000000 RG = 03 PSCSMCNOWRT == FFFEFEF SYMSM“LOCAL = 00000040 
MACSGET“MAC_LIN eeeeeeee x 03 PSCSM~OVR = 90000 04 SYMS$M~ODBG = 00000400 
MACSGL_ARGPTR teeeeeee X 03 PSC$M~PAGE = 00006400 SYMSM~REF = 90000089 
MACSGL"BLKPTR teeters xX 05 PSCSM~PIC = 90000001 SYMSM"RELPSECT = 900800 
MACSGL_CRSYM aeeeeeee = = YX 0 PSCSM_QUAD = 00004C00 SYMS$M_SUPR = 0000400 
WACSGL-IF LEVEL seseeees xX 0 PSCSM~RD = 00000080 SYMSHCUEAK © = 0000000 | 
MACSGL-INPUTP  seeeeeee x PSCSM~REL : 9000008 SYMSM~XCRF = 00001 | 
MACSGL"KEYPTR seeeenee xX PSCSM~SHR = 000000 SYMS$V~ABS : 004 
MACSGL"LINEPT  eeeneeee x PSCS$M~USR = FRFFFFFD SYMSV~ASN 2 8 
MACSGLMC_ARGCT teeeeree X 03 PSCSM~VEC = 99000200 SYMSV~CRFO = 0p 
MACSINTERR 2. LW teeeeeee Xx 03 PSCS$M~WORD = 00004400 SYMSV~DEBUG = 00000005 
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SYMSV_DEF 
SYMSV_DELMAC 
SYMSV_EP 


V 
SYMSV_EXTRN 


po flololololololo) 
NPEOrwooo 


= 
T = 
al = 
SYM$V_GLOBL = 8 
SYMSV-LOCAL = 00 
SYM$V_ODBG = 3 
SYMSV_REF = 00 83 
SYMSV_RELPSECT = BR 3 0B 
SYM$V_SUPR = QO00000E 
SYMSV-XERF = 09000000 
SYMSUTFLAG $0000009 
TAB = 00000009 
x1 = 00000400 
x2 = 0000000F 
few eo wn meena eee ow Sa 
! Psect synopsis ! 
$eeeeeoececcocecs 
name ocation oO. ributes 
PSECT ALL ti PSECT N Attrib 
. 4&ABS . 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR- CON S LCL NOSHR NOEXE 
. BLANK . 00000000 <( 0.) O1 ¢ ) NOPIC USR CON REL LCL NOSHR EXE 
SABS$ QO000003sC ¢ 60.) 8s ( ¢ ) NOPIC USR CON S LCL NOSHR EXE 
MACSRO_CODE_MAC 00000204 ( 516.) 03 ¢ ) NOPIC USR CON REL GBL NOSHR EXE 
jucnen nena 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.06 00:00:00.87 
Command processing 138 BF RO OS a8 00:00:04.80 
Pass 1 201 00:00:03.1 00:00:14.89 
Symbol table sort 9 es Se 00:00:01.84 
Pass 2 7 0:00:00.77 00:00:03.50 
Symbol table output 29 00:00:00.18 ee ae oC 
Psect synopsis output 2 00:00:00.01 00:00:00.0 
Cross-reference output 2 00:00:00.00 39 + 89:89 09 
Assembler run totals 47 00:00:05.02 0:00:26.95 


The working set Limit was 1200 pages. J 

28334 bytes _ (56 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 437 non-local and 19 local symbols. 
315 source lines were read in Pass 1, producing 16 object records in Pass 2 

13 pages of virtual memory were used to define 12 macros. 


NORD 
RD 
RD 


NOW 
iw 


‘wd 
NOW 


i at at §6 03:38 mes Macro V04-00 Page 
Symbol table ~SEP-1984 48:21 (CMACRO.SRCJGETARG.MAR; 1 


RT NOVEC BYTE 
RT NOVEC BYTE 
RT NOVEC BYTE 
RT NOVEC LONG 


MAC 
v04 
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VAX-11 Macro Run Statistics MACRO.SRCJGETARG. ) 


MAR; 1 ( 


bec werecrcececeaceca eeeeeeeeca + 


! Macro Library statistics ! 


fom ew nem oes cana ewer seo oneee + 


Macro Library name Macros defined 
-$5 BN MACRO.OBJJMACRO.MLB; 1 10 
$255SDUA08: CSYSLIBJSTARLET.MLB; 2 4 
TOTALS (all Libraries) 14 


| 
| 
| 
563 GETS were required to define 14 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=L1S$:GETARG/OBJ=0BJ$:GETARG MSRC$:GETARG/UPDATE=(ENH$:GETARG) +L1B$:MACRO/LIB | 
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